home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gophmark.exec < prev    next >
Encoding:
Text File  |  1992-11-19  |  877 b   |  30 lines
  1. /*
  2.  *        Name: GOPHMARK EXEC
  3.  *              Migrate CMS Gopher bookmarks from 2.3 to 2.4
  4.  *      Author: Rick Troth, Rice University, Information Systems
  5.  *        Date: 1992-Nov-17
  6.  */
  7.  
  8. 'GLOBALV SELECT GOPHER GET BOOKMARK.0'
  9. If Datatype(bookmark.0,'N') Then Exit
  10.  
  11. 'PIPE COMMAND GLOBALV SELECT GOPHMARK LIST' ,
  12.         '| DROP | STRIP LEADING | STEM MARK.'
  13.  
  14. Do i = 1 to mark.0
  15.     Parse Var mark.i . '=' name '05'x host '05'x ,
  16.     port '05'x path '05'x . '05'x type '05'x .
  17.     Select  /*  type  */
  18.         When type = "file" Then type = 0
  19.         When type = "menu" Then type = 1
  20.         Otherwise               type = Left(path,1)
  21.         End
  22.     bookmark.i = type || name || '05'x || path || '05'x || ,
  23.                          host || '05'x || port
  24.     'GLOBALV SELECT GOPHER PUTP BOOKMARK.' || i
  25.     End
  26.  
  27. bookmark.0 = mark.0
  28. 'GLOBALV SELECT GOPHER PUTP BOOKMARK.0'
  29.  
  30.